home *** CD-ROM | disk | FTP | other *** search
/ Internet Surfer: Getting Started / Internet Surfer - Getting Started (Wayzata Technology)(7231)(1995).bin / pc / mac / bonus / peter_le / dehqx-20 / displays.p < prev    next >
Text File  |  1991-08-23  |  903b  |  46 lines
  1. unit Displays;
  2. { DeHQX v2.0.0 ⌐ Peter Lewis, Aug 1991 }
  3.  
  4. interface
  5.  
  6.     uses
  7.         FixMath, MyUtilities, HQXLIsts;
  8.  
  9.     var
  10.         buffer_pos: integer;
  11.  
  12.     procedure DisplayUpdate (wp: windowPtr);
  13.     procedure ProgressItem (dlg: windowPtr; item: integer);
  14.  
  15. implementation
  16.  
  17.     procedure ProgressItem (dlg: windowPtr; item: integer);
  18.         var
  19.             it: integer;
  20.             ih: handle;
  21.             box: rect;
  22.             text: str255;
  23.             w, uw: integer;
  24.     begin
  25.         SetPort(dlg); { for when called by my pseudo update }
  26.         GetDItem(dlg, item, it, ih, box);
  27.         FrameRect(box);
  28.         InsetRect(box, 1, 1);
  29.         with box do begin
  30.             w := right - left;
  31.             uw := FracMul(w, FracDiv(size_processed + buffer_pos, size_in_lists));
  32.             right := left + uw;
  33.             FillRect(box, gray);
  34.             left := right;
  35.             right := right + w - uw;
  36.             EraseRect(box);
  37.         end;
  38.     end;
  39.  
  40.     procedure DisplayUpdate (wp: windowPtr);
  41.     begin
  42.         ProgressItem(wp, 1);
  43.         SetItemText(wp, 2, processing_name);
  44.     end;
  45.  
  46. end.